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WHAT ARE WE GONNA D0???? 


Basically, we are going to use this Journal to share information. While the 
information included will assist the "serious programmer, we are not going to 
emphasize only practical and utilitarian programs as I firmly believe that it is 
a mistake to allow yourself to be bullied into stating or believing that your 
hobby must be "practical". While I now make my living exclusively with computers, 
I still view them as fascinating and fun things. When the fun leaves, so will I. 

I must admit that the "Utilitarian Fixation" among computerists confuses me. 
Most people seem to have a set of golf clubs and a TV or two around the house. 
They frequently cost more than a modern computer and strangely, no one asks "What 
are they good for?" Personally, I can't picture anything with less intrinsic 
value than a set of sticks that let me hit a ball a long way away so that I can 
chase it and hit it a long way away and chase it and...... 

We are not going to ignore the fact that computers are a little better than 
abacus for some things. We are even setting up computerized inventory control 
and bookkeeping here at AARDVARK. However, when we do publish utility programs, 
we will insist that they actually be handier to use than your TI calculator and 
not just a way of telling everyone that your computer has some "practical" use. 

We will publish at least one program per issue and probably more. As of this 
writing, we have planned to publish a Mastermind game in the first issue primarily 
to demonstrate the uses of string functions in doing digital manipulation. In. 
the second issue we will publish the first checkbook balancing program that I have 
ever seen that really is handier than using your TI calculator. We picked it 
mainly to demonstrate a method of storing DATA on tape. We will not often publish. 
complete programs for running your bookstore or gas station. The Basic idea of 
this Journal is to show you how to program, not program for you. We will, of 
course, make exceptions to publish any fun programs that come along. 

This also seems like an appropriate place to clear up the connection between 
AARDVARK as a software house and AARDVARK as a Journal publisher. One of my pet 
peeves over the past few years has been semi-anonymous persons who publish OSI 
journals and then turn out to be software houses. When I subscribe to one, I get 
the damnedest feeling that I just got took by someone looking for a mailing list 
or a sneaky way to publicize their products. 

It may not be a perfect solution, but we are going to try to handle that by 
announcing up front that we are a software house. We make money publishing pro- 
grams and data sheets for OSI machines. We will announce new products in the 
Journal and keep you up to date on what we are doing, but we will not pretend to 
be neutral bystanders. 

Now anyone with half a brain or more has got to be asking himself why a 
professional software house wants to cooperate in giving away its secrets. I 
admit that it doesn't seem rational at first glance. However, I have a firm 
belief that whatever improves the general quality of OSI programs will increase 
computer sales and eventually benefit my business. I want to see the quality of 
programs for OSI systems be as good as the best on the market (probably APPLE at 
this point). I also don't like TRS-80 software houses and do not want to see 
their attitude become common among OSI software houses. 
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I recently bought a TRS-80 to see what the competition was doing. I ordered 
about $100 worth of software recommended by various magazines. With one exception, 
it was dismal. It was undocumented, often ran poorly and was gimmicked so that it 
could not be read, changed, copied or corrected. 

Anyone who knew anything went to great lengths to keep it secret. One 
graphics keyboard program ($19.95 - turn your TRS-80 into a PET-like graphics 
keyboard) was the equivalent of a three line BASIC program to take apart strings, 
increase the value of each character and put the strings back together again. 

The music and sound effects tapes were rigged so that they couldn't be read - 
so you wouldn't find out the magic secret that POKEing letters to the cassette 
port caused sound output. 

I can't help but think that such an attitude hurts everyone in'the hobby. 

It probably accounts for the generally poor quality of available TRS-80 software. 
We have learned techniques at AARDVARK that will prevent the honest hobbyist from 
copying or listing a program in any normal manner (no, we won't tell you how!) 
What we found is that you can't stop thieves. Anyone crooked enough to steal, 
can find two tape recorders and do tape-to-tape stealing (as they do with TRS-80) 
so you can't stop them. You do stop the honest hobbyist from learning from and 
improving on the programs. 

If we are right, we will continue to offer state-of-the-art programs for OSI, 
share all the information we can get and make a substantial amount of money. If 
we are wrong, we will continue to offer state-of-the-art programs for OSI, share 
all the information we get, and go out of business and stop offering any programs. 


AARDVARK TUTORIAL #1 
~ DIRINGS = 


I would guess from the programs that are submitted to AARDVARK for publica- 
tion, that the average computerist rarely uses strings to do anything but ask the 
questions: INPUT" DO YOU WANT INSTRUCTIONS (Y/N) "3 A$. Strings, however, have 
many uses in data transfer and storage and, properly used, are one of the major 
secrets to writing compact and efficient BASIC programs. 

Before we go on to discuss the uses of strings, we are going to review what 
the commands are. If you are already comfortable with AZ ASC (MIDS (A$ ,LEN(A$)-1,2)), 
I would suggest that you skip to the next section. 

Let's Start with the simple ones. 

| ASC(A$) - A=ASC(A$) makes A equal to the ASCII value of the first letter in 
Af or the first letter in any group of characters you have specified with any of 
the other string functions. It is important to remember that no matter how man 
characters are in the string, ASC tests only the leftmost character. Whether A 
36 “ABCD” or “AXKXY", the ASC of that strine is 65, the ASCII value of the lbeft- 
most character. 

J - peels off X characters starting from the right side. If A$= 
"ABCD"THENRIGHTS$(A$,2)="CD". | | 
ve LEFT$(A$,X) - is the same but works from the other side. If A$="ABCD", LEFT$ 

AS ,3)="ABC". 

MID$(A$,X,Y¥) - is the first one that may take a little concentration. As the 
neumonic suggests, it is a way to separate out a string from the middle of another 
string. In order to do that, the system needs to know three things - Which string 
do I separate, where do I start taking letters and how many do I take? The first 
element in the parenthesis tells the system which string, the second (X in the 
example) tells it which character (counting from theleft) to start with, and the 
third element in the parenthesis tells the system how many characters to take. 
Thus, if we go back to our famous "ABCD" ,MIDS(A$,2,1)="B", 

The most common error in using any of these functions is the FC error you get 
if you try to specify a string that does not exist, such as the rightmost six 
characters ina 5 character string. 
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A=LEN(A$) makes A equal to the length of A$. The principal uses of this 
function are to make sure there is an A (IFLEN(A$) > ne and to write code that 
will manipulate several strings during a program where the strings may vary in 
length. For instance, if you are going to drop the last digit off of several 
strings of varying lengths (i.e. scores or names of players), you would write a 
subroutine like this: 100A$=LEFT$(A$,LEN(A$)-1) and it would automatically ad- 
just for the length of the strings. It also saves you from the most common error 
that we mentioned in the last section. If you have written the code in terms of 
LEN( A$), you won't often try to treat digits that don't exist. 

STR$(A) turns a number into a string. It is a particularly valuable function 
that all BASIC programmers should be comfortable with as it allows individual 
digit manipulation of numerical values. (We'll explain that later). The function 
does have one peculiarity that you have to get used to. It figures that the sign 
of a number is the first character of the string even if it is not printed. 
Therefore, if A=12 then STR$(A)=" 12", a three character string with the unprinted 
"+" as the first character. 

VAL(A goes the other way. It turns a string into a variable type value. 

If A$="1324" then VAL(A$)=1324. This one is simple and uncomplicated. 

CHR$(A) is another function that everyone needs to know. It allows you to 
print characters that you cannot access with the keyboard such as control codes 
and graphics. CHR$(A) is whatever character would be printed if you could print 
the value in parenthesis. For instance, CHR$(65) is "A". CHR$(254) is a tank. 
CHR$(13) is a tree on an OSI system and will give you a carriage return if you 
print it to a printer. 

(Before you go on,.be certain that you understand the difference between 
CHR${(A) and VAL (A). VAL returns a numeric value while CHR$ returns a character.) 

Most new computerists who discover the CHR$ function tend to use it to print 
gaming characters during instructions, but the real value of it lies in it's 
ability to build and store strings that never existed and possibly could not even 
be printed. That allows us to build strings out of PEEKed values and store data 
in string format. Until we cover that, I suppose that it is sufficient to 
remember that if you execute PRINTCHR$(17), you will send to the printer or screen 
the ASCII symbol 17, which you can't access with a keystroke.’ 

As a minor note, it is also the only easy way to get the system to print ". 
You know that if you try to include quotation marks in the middle of a print 
statement, the system will figure that is the end of the print and quit. However, 
if you execute PRINTCHR$(34) the system will print the ". 


- MATH FUNCTIONS - 


I have always felt that the OSI BASIC manual was a little flip in their bland 
assurance that strings could be compared, added, concentrated and so on... 
Actually, you have only three math functions that can be used directly. 

You can use "+" to add strings together. They will appear in the final 
string in the same order they appear in text. 

You can use = and < > to compare two strings to see if they are identical. 

There are several things that you cannot do. You cannot directly subtract 
one string from another. A$=B$=C$ gives an error. You cannot assign a value to 
a character directly. MID$(A$,3,1)=65 returns an error. 

To subtract part of a string, you have to define the string that is to be 
left and extract that instead. For instance, if you want to eliminate the last 
two characters of a string, you have to execute A$=LEFT$(A$,LEN(A$) -2) 

To insert or change a character in the middle of a string, you have to break 
the string into pieces and reassemble a new string. If, for instance, we have 
the string "ABZDE" and want to change it to "“ABCDE”, we have to execute A$=LEFT$ 
(A$ ,2)+"C"+RIGHT$(A$,2). 

The difficulty in doing direct manipulations is what makes writing word 
processors so much fun and sells so much Anacin. 
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GETTING DOWN TO WORK 
INPUT"DO YOU WANT INSTRUCTIONS (Y?N)":A$; IF AS="Y"THEN (go to instructions) 


I have always wondered why computerists have this desire to tell everyone 
how to answer questions. How often does any English speaking user answer a yes 
or no question with "Si, Senor"? Most common negatives in English begin with "N" 
and most common affirmatives begin with "Y". I really think that the most we 
need to do is ask the question and then check for a "Y" or "N" in the answer. 

As it is trivially simple to strip out the first letter in a string, there is 

also no reason to specify that the user must limit himself to a one letter answer. 
We can check the first character of the answer and if it is a "Y", assume that 

the user said Yes, Ya, Yep, Yessiree or YOU bet. So we get: {100INPUT"DO YOU 
WANT INSTRUCTIONS"; AS: IFLEFT$(A$,1)="Y"THEN (go to instructions). 

As ASC(A$) automatically strips out the first character, we can even save 
a few bytes with IFASC(A$)=89THEN (go to instructions). The single character 
tests and the avoided explanations (Y/N) save a lot of typing and make the system 
seem a lot friendlier to use. 

If you do any extensive programming, particularly business and utility 
programming, you will hit the situation where you do not want to choose between a 
numerical and string input statement. For instance, if the user is inputing a 
series of check amounts, you want to know when the last check has been entered 
without asking the user to count them all ahead of time and tell you how many he 
is going to do. (USERs who have bought computers do not appreciate doing things 
like counting for the computert!). I have seen several ledger and check book 
programs done by asking "DO YOU WISH TO INPUT ANOTHER (Y/N) ";A$; If the system 
gets a "Y", it then executes INPUT"CHECK AMOUNT";CH. If it gets a "N" after the 
first input, it goes on to process the check. 

I suppose that works, but asking a user to press several more keys and wait 
for his answer to be processed before every entry is made, is very time consuming 
and damned irritating if you are doing several dozen entries. 

The VAL function is the way to simplify the inputs. In the instructions 
specify a keyword such as "END" to signify no more checks and then input strings, 
check for the keyword, and, assuming the keyword is not found, assume that the 
user input an amount and convert it to a number with VAL(A$) - like this: 


100 INPUT"CHECK AMOUNT"; A$; 

110 IFA$="END"THEN(go to next section of program) 
120 A=VAL(A$) 

130.....enter amount in record and jump back to 100 


Now you don't have to choose between inputing A and inputing A$, the user 
doesn't have to answer a bunch of questions and the program is easier to use. 

The CHR$ function and a few tricks of OSI BASIC allow you to input strings 
and stuff without carriage returns and to input strings that BASIC cannot normally 
handle. 

Anyone who has read our catalog in the last year has probably seen the section 
entitled “INPUTS WITHOUT CARRIAGE, RETURNS". However, for those of you who may 
have missed it, we'll go over it here. Every BASIC has a machine code section 
that handles the actual detection and decoding of keypresses. In OSI ROM BASIC, 
that routine is at FD@M. In OS65D, the routine sits at $252B. The ROM routine 
stores the ASCII of the input character in location 532 (decimal), while )OS65D 
stores the character in location 9815 (9804 for CiP). Using it looks like this: 


100 POKE11,0:POKE12,253 set up USR function for $FDPP 
110 X=USR(X) get character 

120 P=PEEK( 531) get ASCII 

130 P$=P$+CHR$ (P) build a string 


Disk BASIC is similar except for the location used. We use that setup for 
BLACKJACK and AWARI both because it does not disturb the displays and because it 
is relatively machine independent. 

It is also handy for stuff like work processors because the input is not 
limited to BASICs 72 character input buffer and you can input stuff like commas 
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and periods without jumping out of the line. You can input a 128 character line 
complete with commas and even quotation marks. 
Now we are going to cover complex choice input to a dimensioned array 
(impressed yet)? This is actually a fairly common situation dressed up with 
fancy polysylabolic terminology. This is the situation where the users next 
input is a choice between a fairly large number of alternatives. For instance, 
if you are doing a bookkeeping program, you might display 15 choices where the 
next check could be posted, such as "CAR", “rent” or “sales receipts". If you 
are sharp at all, you will number the choices and have the user input a number 
to call a catagory. That's not bad, but it requires about 3 keystrokes per entry 
(2 digits and a carraige return) and the keystrokes are up on the numbers row 
where they are irritating to make anyway. 
The solution for neat programming is to letter the choices rather than 
number them, and input one character. Subtract 64 from the ASCII code that you 
get to get the number of the choices. If the user puts in an A and you subtract 
64 from the ASCII, you get choice #1, B gives you two and so on. The nice thing is 
that one key can make any choice up to 30. There are no keys designated 22, 23 
and 24, but X,Y,Z and + are on the keyboard and accessible with a single keystroke. 
If you feel fancy, use the input without scrolls we discussed earlier, but 
we are going to assume a normal input routine. Take the ASC of the input character 
and subtract 65 to get a numbered choice that you can use for an ON _ GOTO or 
subscripted array manipulation. It looks like this: 100 INPUT"CHOICE";CH$:CH= 
ASC(CH$)-65. We used a similar routine in BACKGAMMON to allow one letter choices 
of all the 26 points that a player might want to move to or from. 


CONVERTING STRINGS TO POKE VALUES 


As OSI BASIC does not have a PRINT AT statement, it is necessary to POKE up 
names and scores and things that you want to appear anywhere but scrolled off the 
print line. Thank God, the string functions make that simple. We've covered 
how to do a PRINT at statement in most of our catalogs, but we'll review it here 
for those few demented souls who don't read our catalogs. Add this subroutine 
to your programs 59@#FORY=1TOLEN(D$) :POKED+Y,ASC(MID$(D$,Y,1)) :NEXT:RETURN 

To POKE up any name, work or even sentence on the screen, simply set the 
name equal to D$ and make D=equal the starting address on the screen. i.e. 
300D$= "WINNER IS":D=54049 :GOSUB5S 9d 

scores should be done just a little differently. You start at the second 
digit because the BASIC thinks the sign is the first digit in the string and 
can set you over one space from where you planned. You may also want to blank 
the digit after the string to allow for the possibility that the score may 
decrease (say from three to two digits). To use it you set the score equal to 
D$ and the final product looks like this: 

SE erate erase een 

Pe ee nce eee ee eee epee 
5@1@POKED+Y , 32:RETURN 


I might point out for the adventurous of you that a similar technique is used 
by some TRS-80 users to get low speed animation in pictures. They set up two or 
more character strings that overlayed provide cartoon action and then use print. 
ats to alternate the strings (remember strings can be non-alphabetic characters). 
One of the most popular TRS-80 games, ANDROID NIM was done that way. It is a 
little slow, but does allow complex animation with a small memory. 


STRINGS FOR DIGITAL MANIPULATION 


Setting a number up as a string can make certain kinds of digital manipulations 
much simpler. For instance, we included the Mastermind game in this issue mainly 
to demonstrate how much simpler strings can make programming. The usual thing 
you do when you try to break down a number into its digits is to do a lot of fancy 
divisions and integers to get the individual digits. For you lucky computerists 
who are too new to remember this one, it went like this. Assuming you wanted 
to break down a 4 digit number into separate digits, you divide the number by 1000 
and take the integer of the result. 


a ee 


To get the hundreds digits, you multiply the first result by 1000, subtract it 
from the original number, divide the result of that operation by 100 and took the 
integer of that number and so on for four digits. It is a lot of figuring. 

Most computerists chicken out and input the digits separately by asking the user 
to insert commas between the digits - a rather unnatural and unhandy process - 

who feels right inputing 1234 by entering 1,2,3,4 return. Using strings, the 
problem becomes trivial. If the number has four digits, the first digit is 
VAL(MID$(A$,1,1)). The second digit is VAL(MID$(A$,2,1)) and so on for all the 
digits. Of course, pairs of digits can be picked off the same way, which is handy 
for inputing dates without requiring a lot of special formatting. If the user 
inputs the date in a fairly standard 6 digit format (month, day, year), VAL(RIGHT$ 
(25) will give you the year, the same thing with LEFT$ will give you the month 

and a MID$ will pick out the day without the user having to put in commas, slashes 
or any other special character. 


DIMENSIONED STRINGS AND DATA STORAGE 
((**BOREDOM WARNING**)) THIS GETS A LITTLE THICK 


To really understand where the advantages of string data storage are, you 
have to take a fresh look at what a string really is. It is not a collection of 
alphabetic characters. That is merely what you see when you print out the data 
from most strings. What a string really is is a set of integers from @ to 255 
which have a common name and which can be added to or examined individually with 
the use of string functions. Thought of that way, it has some things in common 
with subscripted arrays (individually addressable data bits, callable with a 
common name, each data bit can be changed without effecting the others.) It also 
has a few advantages over a subscripted array. Those nasty arrays have to be set 
up ahead of time with DIM statements and memory is partitioned off for every 
possible element whether you need it or not. This is even more wasteful in two 
dimensional arrays (editors note: Despite what OSI tells you in the manual, 
you do have 2,3,4 ... N dimensional arrays in your BASIC). You have to dimension 
out the same number of columns for every row even if some rows are going to be 
shorter than others. 

The first time the problem really hit me was when I did my first Variable 
Table Maker program. The program searches the host program and lists each variable 
and each line the variable appears in. The program is mainly useful for docu- 
menting and sorting out large programs. The usual way to do one is to set up a 
2 dimensional array. You set up an (X,Y) matric with X being the variable desig- 
nation and Y storing the line numbers the variable appears in. Unfortunately, it 
requires that you make the same provision for storage space for each and every 
variable in the matrix. Therefore, the variable WH which appears once, gets as 
much space reserved for it as "X" the temporary counter that appears in every 
second line. Darned wasteful! On the other hand, if you set up a dimensional 
string, you need dimension only on one axis and the system sets aside only about 
5 bytes for each string until the string gets longer. If one of the strings is 
rarely used, little space is allocated for it and if one gets very long, space is 
automatically allocated for that. 

Here's how it worked in practice. To make the VTM, we set up a dimensioned 
string A(X) that was dimensioned for the maximum number of variables that we were 
going to handle. Notice that we only have to have a one dimensional array - 
length takes care of itself. When a variable name is encountered in the program, 
a string is initialized with the first three letters of the string being the 
variable name and a blank or a $ depending on what kind of variable it is. From 
then on when the variable name is encountered in text, it is matched up with the 
original string by searching all the variable names then on file. (i.e. FORX=1TO 
(number of variables on file) :IFLEFT$(A$,3)=(Variable name) THEN... If a match 
is made, the line number is turned into a string and added to the string naming 
the variable. i.e. A$(X)=A$(X)+STR$S(LINE NUMBER)+" ", (" " spaces the numbers 
out so they may be more easily read). When we have finished scanning the program, 
we Simply plane out all the strings. The first three letters are the variable 
name and the rest of the string contains the numbers of the line in which it 
appears. The nice thing is that if we only ran into a variable name once, we only 
set aside enough memory to store the one line number. 
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It doesn't work quite as well in practice as it does in theory as there are some 
bugs in the OSI BASIC, but it does work fairly well. 

A second set of characteristics for strings and variable arrays can some- 
times be important. Everytime you set up an element in an array (or even the 
space for a potential element) the system reserves space to store a six digit 
number, a decimal point and a pointer for that element. That's very wasteful if 
you are storing small integer numbers one byte long. 

We ran into a problem recently doing an anagram program for a psychology 
experiment. (An anagram is a puzzle where a work has been scrambled and you have 
to unscramble it). For the purpose of the experiment, all words are five letters 
long and had to be scrambled in a sequence randomly chosen from 15 preset sequences, 
What you actually store for a pattern is five digits representing the order the 
letters will appear in. For instance, if you were going to reverse the last two 
letters and leave the first three alone, you store 1,2,3,5,4. The original 
FORTRAN program used a 15x5 array to store the numbers. We couldn't afford that 
on a mini computer. At 6 bytes an element, we were blowing about 450 bytes for 
the one array. What we did was to store the array as one long string. The first 
five characters in the string were the first pattern, the second five the second 
pattern and so on. To pick out a pattern, we used the MID$ function to pick five 
characters out of the center. We then broke the characters down in a manner 
Similar to that used with the Mastermind game in this issue and used the individual 
values to build the anagram string. The nice thing was that we didn't have to 
store decimal points, headers and all the other stuff that goes into an array so 
we ended up using just about 100 bytes. 

In a Similar manner, we are using string to store the objects in an adventure 
game that we are currently developing. There are about 40 objects in the game 
that can be picked up and carried from place to place. We needed to know which 
objects were in which room and which one the hero was carrying. That entails 
having about 21 places where you can store up to 40 integer numbers from one to 
40 without wasting. a lot of space. We did it by setting up 21 strings. One for 
each room and one for the hero. When the hero picks up an object, we add its 
number to the Hero string and when he drops it, we take it off his string and add 
it to the string for that room. For instance, if the hero picks up a sword 
(object 15) we execute HERO$=HERE$+CHR$(15). To find out if he has the sword, we 
execute the code: 100FORX=1TOLEN(HERE$) s: IFASC(MID$(HERO$,X,1)=15THEN HE HAS THE 
SWORD. If he drops it, we subtract the sword from his string and add it to the 
room that he drops it in. 

If we did the garbage collection routine, we can store all the possible 
combinations of places and objects and still only be out the 5 bytes per string 
overhead and the 40 bytes it takes to store the current locations of the objects. 

It's a long way from the question "DO YOU WANT INSTRUCTIONS (Y/N)". 


USING THE $219 PRINTER 


Before we discuss the printer, we should talk about what most hobbyists, 
particularly C1-P users need a printer for. Despite all of our dreams of work 
processing, very few of us will use our systems for writing many letters. Most 
of us don't even write many letters to begin with. The lowest cost typewriter 
print quality printers are still in the $2,300 - $3,000 range. (I don't include 
used Selectrics - a good choice for a hardware handy masochist). What most of 
us need a printer for 90% of the time is to list and troubleshoot programs. We 
need to be able to look at SUBROUTINE2000 while we look at the line 200 that calls 
it without continually scrolling 4 or 5 lines across the screen. 

We need to be able to look over a whole program at one time for errors, 
wasted space and documentation. 

We use a printer at AARDVARK that we purchased for $219.00 brand new. It has 
recently been advertised for $179.00. It has one moving part and has never given 
us a minute's trouble - except for the six weeks of figuring out how to use it 
caused by its faulty design - and we can save you that six weeks. 

We use the RADIO SHACK QUIKPRINTER II for program listings. It you have 
purchased a program from AARDVARK, you probably received a listing made on this 
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printer. It has some limitations as it prints on aluminized paper about 3 inches 
wide, but it gets 32 characters per line, (which is 7 better than the C1 display) 
and has an option for double width characters. 

Installation requires that you populate the RS-232 port. That involves 
about $2.00 worth of parts and a helf hour with SAMS, your dealer, or the data 
sheet from AARDVARK. You also need to wire in the 600 BAUD conversion. That is 
supersimple on the Ci. It requires a switch and some wire and another trip to 
your dealer or an order for a data sheet. The C2/4 is a little more complex. It 
took me about 2 hours on my C2 and I never did write up the instructions. Any 
handy type should be able to figure it out as OSI has pads for installation of 
other baud rates already on the board. 

You only need to wire in the transmit and ground connections to the printer - 
that's where that six weeks of problem comes in. RADIO SHACK tells one little fib. 
The RS-232 does not work on the printer. It receives and prints data properly, 
but the CTS signal latches high or low at random. We received calls from the 
local computer center, the regional computer center and two people who purported 
to be from engineering centers in Houston. We got evasions, excuses, nonsense 
words (i.e. "It's just a software problem"), and promises. However, at last 
count, the CTS line still did not work. 

To use the printer, you have to syne in without handshake. The wrap around 
buffer they advertise is one character long and simply adds to the confusion 
rather than helping. 

You have to avoid carriage return (POKE 15,31), space out the characters with 
the baud rate simulater (POKE 518,190) and add some extra nulls at the end of each 
line (POKE 13,9). We have used three different C1 and C2's with the printer 
and ali seem to use almost identical values to work properly. On one system we 
had to space the characters out a little more to avoid the loss of the first 
character on every line. We used POKE 518,200 on that one. 

With all the delays, the printer ends up running at a little less than 300 
BAUD effective rate, but that's a lot faster than I can type a program. You may 
have to fiddle the POKE values up and down a little for your system. WV 


POKE 13,9 (add nine nulls) 

POKE 15,31 (set width to 31 characters) 

POKE 518,190 (delay set between each character) 

CAUTION : BEFORE MAKING TAPES, YOU MUST RETURN TO THE NORMAL VALUES 
PORE 13.0 

POKE 75,72 

POKE 518,0 


WANT TO WRITE FOR THE JOURNAL?? 


We do want programs and informative paragraphs for this JOURNAL. We do not, 
however, feel that anyone should work for free. Any article worth publishing 
is going to save others countless hours or many frustrations with their systems. 
The good feeling of offering to help other computerists is nice and should be 
appreciated, and the minor fame of publishing a little piece is nice, but there 
Should also be some reimbursement. 
For paragraphs and short equipment and software review, we offer gift 
certificates for AARDVARK software; A $15.00 certificate for a paragraph sized 
tip (and we put your name in the JOURNAL) or a short product review. We will - 
publish software reviews from other sources, but don't plan to do any ourselves 
as we want everyone to be able to trust the reviews. We also sell software and 
we don't want to get into conflict of interest problems. 
Programs and articles will be offered gift certificates from $25.00 (short 
programs) to $100.00 for “how to do it” articles. We will also pay cash for 
exceptional “how to do it” articles. 
If you send us a data sheet or article, put your name on the back of each 
Sheet- and your phone number or address. If you send a program tape, include 
your name, address and phone as program lines 1,2 and 3 in BASIC programs. Be 


sure to specify if the information is for the JOURNAL or for publication by | 
AARDVARK software house. The requirements for the two are very different. Ww 


=O 
HOW ABOUT THIS FOR A LETTER COLUMN??? 


Send in questions. I'll answer all I can, and my staff will tackle the rest. 
We'll publish the answers in the next issues column. If you fool us and your 
question has public merit, we'll publish the question and scream for help. We 
can't promise to answer everything in one JOURNAL, but at least it will give us 
an idea of what you need or want to Know. 


LID- BITES 


This is a simple one, but the problems it causes if you don't know the trick. 
are maddening. In order to LIST out a segment of program, type in LIST (lst line 
number you want to look at) - (minus sign signifies "to") (last line number you " 
want to look at). (i.e. LIST 230-260 will cause all lines between 230 and 260 to 
be printed on the screen). 


There are an unknown number of Ci-P's out there with a hardware problem 
built into the cassette interface. (I know I spent several hours tracing down 
why our original C1 wouldn't load tapes as well as it should - in fact, it loaded 
better through the output port). If your Ci has these symptoms, the problem may 
be a bad foil run between diodes 9 and 10 and pin 2 of U66. Use a VOM set for 
resistance to check out the trace. If the trace is broken, a small jumper wire 
tacked inbetween the two points on the bottom of the board will solve the problem 
and have your cassette interface back in working condition. 


Sometimes when you use a POKE statement as a direct command, as we do in 
order to run the QUICKPRINT II - the system will come up with an OM (out of memory) 
ERROR the first time you execute the POKE. Ignore it! Just repeat the POKE. The 
system will usually accept it the second time, if not keep POKEing. 


If you have purchased our Ci CURSOR CONTROL, have we got a surprise for you. 
It is possible to do mid-line insertion with the CURSOR. Just CONTROL from the 
beginning of the line to the space where the insert should go. CONTROL the 
number of spaces needed for the insert. Then type in whatever you want to add 
(it will seem to wipe out part of the line as you type it in, so don't panic). 
At the end of the insert CONTROL to the end of the line, hit RETURN and list your 
line, complete with inserted material. (It may take a little practice to get 
the spacing just right). 


Good Newst! OSI fibbed to you. For some reason OSI still publishes manuals 
that claim that OSI BASIC is limited to one dimentional arrays. In actual fact, 
OSI BASIC handles N dimentional arrays. (i.e. You can dimention A for DIMA 
(5,5,5). Thus, your dimentions are limited only by the size of the machines 
memory . 


BEGINNER'S CORNER 


WE BELIEVE YOU!! At least once a week, we receive the following information 
from customers. For those of you who may have missed its 


(1) In ROM BASIC, POKEing a @ into location 15 will make the system double space. 
(2) It is not necessary to do a cold start everytime you hit the break key. That 
W that comes up in D/D/W/M means warm start and will restart your system 

without killing your program. 

(3) On C2 and C4 machines, it is not necessary to POKE an exact @ or 1 into 
location 56997 to change the type size. The system checks only the last 
bit, and therefore, any even or any odd number will work. 


« AQ. 


NEW FROM AARDVARK 


SUPERDISK for C2/4/8 Contains a complete BASIC text editor and allows 
midline insertion, deletion and correction of BASIC lines. Also has BEXEC*, 


RENUMBERER, SEARCH and VARIABLE TABLE MAKER. 
52" disk $24.95 8" disk $26.95 


: THE FIRST BOOK OF OSI It finally got herel! Written by Jim Williams and 
George Dorner, it is a 65 page expansion on the ROM BASIC DATA SHEET. While it is 


definately not for beginners (it presupposes a working knowledge of BASIC), it goes 


a long way toward telling you everything you wanted to Know about OSI BASIC and 
couldn't pry out of the manuals. $15.95 


TIME TREK A real time STARTREK - runs in 8K. $9.95 


C1 TAPE CONTROL Puts your tape recorder under software control. Includes 
instructions for hardware modifications. Data Sheet. $3.00 


THE C1 BEEPER Add a software controlled Beeper to your C1i-P. Data Sheet $3 


ADAPTING THE BASE 2 PRINTER FOR THE Gol 7 pes. $4.00 


ADVERTISING? ? 


Yep, we will accept ads for the JOURNAL, but there are some restrictions on 
what we will advertise. We will accept ads for hardware, software and information 
sheets on OSI equipment. However, as we are a software house, we cannot afford to 
be associated in any way with second class software or impractical data sheets. 
Therefore, software ads and data sheet ads must be accompanied with a sample for 
evaluation. 

Ads for hardware are $5.00 for up to 50 words. Ads for software and data 
sheets are $12.00 for 50 words and are subject to the rules above. 


MASTERMIND 


Gee Seek ee | eta yas” ae eealiwlane ay ew, adic aeserin. cath. Ae oracle 
~ REM THIS IS A MORE BIFFICUL? VERouudi OF MAGSOTERNTNG 


7 REM IT DOES NOT REFEAT NUMBERS» BUT USES MORE DIGITS Co-9) 
10 PRINTIPRINTI PRINT SPRINT 

20 PRINT" MASTERMIND» COPYRIGHT I97SsKOUGER OLSEN” 

30 PRINTHIT SHIFT TO START" 

$5 IFPEERL 57088 )=2540RPEER( 57086 J=1 THENR| RNA 8) GOTOSS 
40 POKES 690001 

SO FORS=17T0347PRINTINEXT 

60 FRINT"MASTERMIND FOR THE CHALLENGER” 

70 PRINTIPRINTIFRINT SPRINT 

BO INFUT"OG YOU WANT INSTRUCTIONS” 3a¢ 

90 IFASC( AS J=89THENS4O 

120 FORO=1TOMIRF=RNEK 1tHEXTO 

130 WHINT( LOXRNIK 13) 

146 X=INTC LORRNI 1) 

150 Y=INTC LORRAIN 40) 

160 Z=INTC LORRAIN 1); 

170 PORES 6900 %0 

180 IFWeXTHENGOTOL4O 

190 IFW=/THENL49 

200 IFY=XTHENGOTOLS¢ 


21Q IFW=ZTHENGOTOL 40 


ny oe a Te oe are 
it abe TFA=Z THENGOTGLSS 


siglo Pe eh ee 
2a IF Y=ZTHENGGTOiSS 


*} tas m= fey ! eas ey ee ES ae Oe Martie a Wie ae I Oe De eae ee 
24Q RANT SPRLIA SPREA TIP R LRT SPRING 


PRINT"A NYSTERY NUMBER 1S READY" 
T=0 

PRINT SPRINTIFRINTIPRI 
PRINT" CORRECT 
T=T+LiR=OtE=0 

INPUTG$ 2FORX=1 704 2ACX J=VALC MIDS G8 9Xel )ENEXT 
REM 10 NOT ENTER LINES 310-340-THEY JUST DEMONSTRATE THE WAY 
REM HAVE TO DO IT WITHOUT STRINGS 
GOTO350 


PR LET 


LNT: 
EXACT 


REM 319-340 15 MENTIONED IN TEAT AS GLO WAY OF SEPARATING DIGIT 


iz 


AC L)=INTCG/1000 3 
AC 2 = INTC G/106 )~AC 1 #10 

ACS )=INTC G/10 J-AC 1 )H100-AC 2 K10 
At 4 )=G-1O0OKAC 1 )-1L00KAC 2 )-1OKAC 3) 
IFAC 1 =WTHENR=R44 

IFAC 2 = XTHENR=R41 

IFAC 3)=YTHENR=R44 

IFAC 4 )=ZTHENR=R+1 

FORL=1T04 | 

IFAC L © WTHENE=E+1 

TFACL )=XTHENE=E+4 
IFACL © YTHENESE4¢1 

IFAC L )=ZTHENE=E+1 

NEXTL 

PRINT aan Ey 

IF T= 30ANDR<4THENGOTOSOO 
TFR<4ANDT= 15 7THENCOTO290 

IFR<4 THENGOTO290 

PRINT" CONGRATULATIONS” {PRINT YOU GOT IT IN“ T" TRIES" $GOTOSL0 
PRINT" GOTCHA" 
Q=1O0OHKW4+1LOORXFLORY4Z 


PRINT" THE NUMBER WAS"O 
PRINTSPRINTOPRINTIFRINT' CARE TO TRY AGAIN’ ¢GOTULSGO 
FRINT’ I WILL THINK OF A 

FRINT" FOUR DGGIT NUMBER 

FRINT’NO TWO DIGITS Wilk BE THE SAME 
PRINT"BUT THE FIRST ORE CAN BE A O 

PRINT" YOU GUESS THE NUMBER 

PRINT" I WILL TELL YOU HOW MANY OF 

PRIRT' THE DIGITS IN YOUR NUMBER fT USED 
PRINT" AND HOW MARY T USED Ik THE SAME FLACES 
PRINT" FOR INSTANCE-IF MY NUMBER WAS i254 
PRINT"AND YOU GUESSED 1473¢ 

PRINT’ ET WOULD SAY THAT YOU HAD 2 DIGITS 
PRINT"CORRECT (1 AND 4) 

PRINT'AND ONE EXACT ¢ 29" 

PRINT 

INPUT" READY FOR MORE" FAS 

PRIRI’ TD GIVE MET TPe 

FRINT"A RETURN WITH NO GUESS 

PRINT® AND TYFE GOTQ Soo 
PRINTIPRINTIRRINT 

INFUT"READY TO START" A$ 

GOTOLS00K 


RACE COURSE 600 


REA THIS ira! UEMONSTRATES JUST ABOUT EVERY WAY TOU CAN 
REA CORTRGL A GRAHICS CHARACTER 
PRINT: Setar PRINT PRINT"RACE COURSE 400° 


PRINT SPRINT 

LMPUT 30. FOG WANT INSTRUCT ONS” 5AS? IFLEFTS( Asi =" 1" THENGOO 
PRINT; PRINT" 1 OREYRUARD (2 FULL PADDLE (S)STEERABLE PADDLE 
$0 INPUTPICK A GARE BY Wan if 

od FORK=1 TB! RE EAD Xs 10 SNEXT 

& INPUT’DEGREE OF DIFFICULTY" sii TI=308( 19-D) 
79 LORO ERS. PPT P=B40zs 

GO IFGsLTHENP ORES S091 POKES 7088» 128 

9G FORA=1LT0 0; PRINT NEAT 


Sesene> 


ie 


720 PRINT’ YQU GET 16 CRASHES PER 
730 PRINT’ YOUR RATING DEPENDS ON THE LAPS YOU MAKE 
74) PRIAT"HIGRER DIFFICULTY RATING MEANS HIGHER SPEEDS 


7 GO | 
76) PRINTSPRIRTSPRINT*® RATING  "L008(L/CR PRINTS PRINT 
iii che. 53h) 
720 COTOA0 
RACE COURSE 540 


S REA THIS 15 8 340 (02/4/98 WERSION UF THE 400 Kath CAK PROGRAR 
10 INPUT*I YG MANT INSTRUCTIONS? $$: TPASC( AS = O7THENL LOG 


9a REN DATA IS MOVEMENT FACTOR (HOW FAR TO NEXT SQUARE IN THAT DIRECTION 


97 REN } BRD GRAPHICS CHARACTER USED [H THAT DIRECTION 


iki ALS Pn a A gE 15 2sdhscdar7lici4e~sbsegn 


iS REH THIS PRIMTS § RACE ee Li FUN 70 G0 YOUR DUN 
107 REA BUT UNTIL 3 


vhs 
110 FORR=1702 PRINT" K m%) ies AAKARAAAARARAAAAARA (NEAT 
ee aide PRIBT" A ENS PRI MP TAR 20 )° Aix" 


140 FURA=LIGGSPRIBT*ARA © XAXXAAXRARA © KAX" NEXT 
10 FORA=LT03 PRINT "ASK RARAARAAK AAA” SRE 
Loi POUL RAAAABAAA AAA GREAT 


i/9 PURA= 1 

10 PRIRT" RABRAAAAA KAA" SHEAT 

i70 PRINTS RAAKAARAAAAA AAAS ; 
20 FORK= 1TG4? PRINT" XXX" s SPRINT TABL 20 )° XXX" CHEAT 
an ie PRIA” KAXXRXXXXANAXAARARKAA 

Luu PRINT" CRASHES LAPS 

240 FURATLIGY I NEAT 


eau DGKESi0s 1 PORT? siil} 
Pao REM 2/79 15 a KEY VROARE ROUTINES ee JOYSTICK 
ti 


7? RER SOG 15 PADDLE | TPE USE OF JOYSTICK 
230 GHEGOTO2/ 0139005 | 
a ‘ 5/ Ue 204. P= 7 O88 3 


| £5 
=9) IFP=3THENIS1415 [F I-9THERI=1 
S00 IFP=OTHERNTI=TI+S6 


SG P=PEEKCTP+H 1? } UPP=ge THENGUSUDS GD 

S43 FORETPs S2,TP=TP HA A POKETP 9 Tt 13 

oa TFTPSSSG09ANDT PSSST STHENL= UH! PURE LODyL +423 TFLOY, oTHENT0 
te fer 


oe PP=2 uP EER 57088 ) 


oo TFP=72THENI=8 
iG) IFP=12RTHEMPOKES 300 OS STOP 

£96 GOTOS30 ; 

500 POKES? 096» 127 {P=255-PEEK( 57098) 

516 IFP=S2THENI=1-1 2 IF=OTHENI=9 

530 IFP=L6THENTI=7 1450 

oa) IFP=GTHENT=1H1t1F L=9THENI=1 

BA) IFP=128THENGO 

555 SOTG330 

S60 FOR=1T0100:POKETP  42:POKE i 
5/0 TP=529952 132 THE=208 10-0} ea 
oa CR=CHH 2PORESSO9S 084403 IF CRD9, PTHENT 40 


200 PRUE PRINT 2PRINT"T 
ti 1) PORE Pale x ces i Ce rove hs 
520 PRIK 
60 RINT” CLs RIGER i ay {URIGHT (4 RN CSULEFT 
640 PRINT“FULL PADDLE CIUES THE @ ar ANDAR UIRECT LGNS 
és) PRINT’STEERABLE MEARS ONLY RUG ARG LEFT WORK AND 
660 PRINT" YG) MUST STEER Takk WITH 2 TREADS 
&70 PRINTS INPUT"READY FOR SORE" sA$; PRINT? PRINT 
680 PRIRTT Y STANDARE KEYROART 
b73 PRINT *USE CRASHIFT } AND (LeSHIFT > FOR DIRECTION 
70) PRINT"( REPT) END GAME EARLY | 
710 PRIRT*ON PADBLE GAMES: THE TRIGGER ERDS GANE EARLY 


i GOUT HARE OF URIVER" A$ 
if PRINT: Pe ou PCL URE: BOARD (2 UFULL FABELC (JISTEERABLE PABBLE 
a in tl spr ch 8 GBHE BY HURBER* IG 
a= ATs: REABM 2 be TA OSHEAT 
BLFF I AL "hi T1= 2080 19-0} 
HCE, ; 9 (PeSaii4 3i=9 
“Fes ATHENE ORES 305 1 {PORE S/0886 128 
7) FORA" TOSGI PRINT (RERT 
78 tele: én} ee aii RIATSPRINT 
taf bai} AS a ee a + fi sPREAL ABE 235 WeRBSHES? 
u tegen tapi a pies 
gk a ok ERBLK--1i°S BORE FUN TO BRAY YOUR DN 
99 REF na YOU'RE ALLGHED 70 USE ain 
toe FoRe=! sete UG GSUS /POREAs LAL INERT 
Lid FRAG ss OSU PORE AS Lod iMEAT 
Lod FORRES. TOSS PUES OS44 LOLI AIRES 47 2945 LAL INEST 
ee rURA=LTUL3-PORESS7 £5458454 tol 
PORES G7 RH RE64s LSE CHEST 
ee BS PIKES SUstal 
Lai} PGs LUGS PORES QUbtAs Lok, PUAES SYS. 
Li apts JIGS PURE ah da G4ER  LEL HER! 
a0 FURATLTOTL ae 
406 PURC Ds L PURE Fs) I} 
wiv HELO G315 2500279 
oid FUKES/ Gas Lor “PEER! o/UGe } 
Shi ifPaict ? HERP ORES 30905 STGP 
wat fea 5 THENI= Lei Ly inFThewI=} 
aid UFP-OTHENT IATL EGG 
wal) IFP=3THENI= tac bi ih L=GTRENT=g 
joa iFP=? THERT (“Ti 30 
549 POPEERNG iF ik H PELLFPSLGLTMERGGUBIO() 
J PUREE ies IPS iPerd LSPORETP 713} 
200 - le a ne wAc27  HENLALLLTPUNES 4 300 514491 1 LS 9THEN2 O09 
Sid F ~“S:Ushalltai 
4 BUTUSLD 
oi) PURES/ GeG) LZ P=PEER( 57658 3 
oie iF Peo inca I= i 
sls TFP=96THEN T=? 
529 (FF G2THEWi=3 
das UPS HENIA4 


=U4T HE CHI=g 
wil ae 

5 FP) 2THEMI=a 
ay i Lee NES AOS Tur 
OU 
jG f bhi, us ou acs P=PEEK( 57099 ) 
ii LEP 327 HEWI=I- 13 TELOTHENI=8 

) EPSLSTHENT LL Tit30 

Op iFPsg Hen f= i+ Li TF It9THENI=! 
iat iF P= 1 OTHENAO 
iH | GUTOS40 
LRA) FURR=LTULOO PORE TP 242 }PORETP s 32 iNET 
1Gc0 ToG44045 1-3, TIRES20a( 16-2) 
Log CR=CREL? PURES 4432; Pebeat iF LR? THER? GGO 
Lady Res Ui 
Alu? AEA INSTRUCT LONG ARE THE SAME AS THE 400 YRSIGN 


La SUL 
cuue PRONG PRIS :VEINT" RATING "L008 L/CR PRINT SPRINT 


avi) LES. 


50 Praia ARE Agata Factor F 
as AE Tae dine | cen ae (foULoWeD BY DISPLAY CHARACTER 


adr Lol HEAT 


ied Ol a-ady, oe dee eds O4e ce: bbs 2539-19 2545-h57 BS 


